home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / dev / e / amigae33a.lha / E_v3.3a / Src.lha / Src / Tools / Arexx / arexxtest.e < prev    next >
Text File  |  1992-09-02  |  228b  |  12 lines
  1. -> test arexx module, the easy way out
  2.  
  3. MODULE 'tools/arexx'
  4.  
  5. PROC main()
  6.   rx_HandleAll({process},'AREXXTESTPORT')
  7. ENDPROC
  8.  
  9. PROC process(s)
  10.   WriteF('Received message "\s" from Arexx!\n',s)
  11. ENDPROC StrCmp(s,'quit'),0,'result!'
  12.